Model Wife/The Best of New Machine Publishing 4 - Disc 2: Model Wife.iso/pc/sampler/dm13.dxr/00517.ls

Text File | 1995-09-05 | 1.8 KB | 64 lines

go(the frame)
set the visible of sprite 7 to 0
if the movieTime of sprite 20 > stop then
  set the movieRate of sprite 20 to 0
end if
if (the movieTime of sprite 20 > 1466) and not soundBusy(1) and (snd1 = 1) then
  puppetSound("D2.AIF")
  set snd1 to 0
end if
if (the movieTime of sprite 20 > 2156) and (the movieTime of sprite 20 < 2186) and not soundBusy(1) and (snd2 = 1) then
  puppetSound("D4.AIF")
  set snd2 to 0
end if
if (the movieTime of sprite 20 > 2886) and not soundBusy(1) and (snd3 = 1) then
  puppetSound("D3.AIF")
  set snd3 to 0
end if
if WALK = 1 then
  if the castNum of sprite 3 = 4 then
    set the castNum of sprite 3 to 2
    set the locV of sprite 3 to 356
    set the locH of sprite 3 to 85
  end if
  if the castNum of sprite 4 = 5 then
    set the castNum of sprite 4 to 3
    set the locV of sprite 4 to 355
    set the locH of sprite 4 to 296
  end if
  set the movieRate of sprite 20 to 1
  set the movieTime of sprite 20 to START + 6
  set the stopTime of sprite 20 to stop + 6
  set count to 0
  repeat while count < 100
    set count to count + 1
  end repeat
  set the visible of sprite 20 to 1
  set WALK to 0
  if ((stop > 2082) and (ok1 = 1)) or ((stop > 1842) and (ok1 = 1)) then
    set TOY1 to 1
  else
    set TOY1 to 0
  end if
end if
if move = 1 then
  set the visible of sprite 2 to 0
  set the visible of sprite 3 to 0
  set the visible of sprite 4 to 0
  set move to 0
  go("move")
end if
if TOY1 = 1 then
  if the mouseDown = 1 then
    if (the mouseV > 159) and (the mouseV < 194) and (the mouseH > 156) and (the mouseH < 302) then
      set the visible of sprite 12 to 1
      set the movieRate of sprite 20 to 1
      set the movieTime of sprite 20 to 2730 + 12
      set stop to 2884 + 12
      set the stopTime of sprite 20 to 2884 + 12
      set TOY1 to 0
      set ok1 to 0
    end if
  end if
end if